00100		TITLE	NORM	;DEB, 11/13/69
00200	
00300	;	CALL NORM(ARRAY,SIZE,FACTOR)
00400	; UNPACKS 18-BIT SMPLS, NORMALIZES, REPACKS AS 12-BIT SMPLS.
00500	; ---- 3K OF 18-BIT BECOMES 2K OF 12-BIT
00600	;****** BE SURE TO SET FACTOR FOR 9-BIT SO MAXAMP IS NOT >255.
00700	
00800	
00900		INTERNAL  NORM
01000	
01100	X	←	2	;LOOP AND INDEX
01200	T	←	3	;BASE OF IBOTT
01300	
01400	
01500	NORM:	0
01600		HRR X,0(16)
01700		MOVN T,@1(16)
01800		HRL X,T
01900		HRR T,X
02000		HRLI T,441400	;FOR 12-BIT.  USE 441100 FOR 9-BIT
02100		MOVE 4,@2(16)
02200		FIX 4,212000	;FOR STANFORD ONLY
02205	; NEXT IS EXPORT FIX (TO N10:)
02210	;;	FSC	4,21
02220	;;	MULI	4,400
02230	;;	TSC	4,4
02240	;;	EXCH	4,5
02250	;;	ASH	4,-243(5)
02300	N10:	HLL 0(2)
02400		MUL 4
02500		IDPB T
02600		HRL 0(2)
02700		MUL 4
02800		IDPB T
02900		AOBJN X,N10
03000		JRST 3(16)
03100		0
03200		ANDCBM 4,-6	; THESE ARE THE CONSTANTS
03300		ANDCBI 10,-3
03400	
03500		END